** comment
   01 BIG-FIELD.
    03 FIRST-FIELDS.    
      05 NEXT-FILED           PIC X(40).
      05 OTHER-FIEL           PIC X(5) VALUE "JAMES".
      05 NUMER-FIELD          PIC 99.
      05 FILLER               PIC X(12).
      05 CONT-FIELD           PIC X(20) VALUE "1234512345
                             6789067890".
      05 REPEAT-SIX           PIC X OCCURS 6 TIMES.
      05 REPEAT-LEVEL.
         07 REPEAT-7          PIC X OCCURS 7 TIMES. 
         07 REPEAT-6          PIC X OCCURS 6 TIMES.
      05 NEW-LEVEL REDEFINES REPEAT-LEVEL.
         07 FILLER            PIC X(13).
    03 NMAN-INDICATORS.
      05 FILLER                      PIC XX.
      05 XXXX-DUP-IND                PIC X.
      05 FILLER                      PIC X(6).
      05 XXX-SW1                     PIC X.
      05 XXX-SW2                     PIC X.
      05 XXX-SW3                     PIC X.
      05 XXX-SW4                     PIC X.
      05 XXX-SW5                     PIC X.
      05 FILLER                      PIC X(1).
    03 OPEN-DATE.
      05 OPEN-YY               PIC 99.
      05 OPEN-MM               PIC 99.
      05 OPEN-DD               PIC 99.
    03 DATE.
      05 YEAR                        PIC 99.
      05 MONTH                       PIC 99.
      05 DAY                         PIC 99.